SVM Mac CD-ROM 59/SVM Mac CD-ROM - No 59.iso/demo camisole/Titre.Dxr/00083_Initialisation du jeu.ls

Text File | 1999-04-06 | 1021 b | 22 lines

on startMovie
  global gNiveauDuJeu, gViesCamisole, gJeuxBiblos, gNiveauSon, gCursDoigt, gCursGauche, gCursDroit, gCursCami, gCursPoing, gCursSortie, gCursRond, gCursMain
  initQuitter()
  set gJeuxBiblos to [#poubelle: 1, #valises: 1, #landau: 1, #clown: 1, #egout: 1, #etagere: 1, #grimoire: 1, #flacons: 1, #ombres: 1, #zoom: 1, #hachoir: 1, #bocal: 1, #pont: 1, #microbes: 1, #autos: 1, #bourgeons: 1, #visiteur: 1, #bateaux: 1, #camisoles: 1, #escargots: 1]
  set gNiveauSon to the soundLevel
  set gViesCamisole to 4
  set gNiveauDuJeu to "B"
  set gCursDoigt to the number of member "CursDoigt"
  set gCursGauche to the number of member "CursGauche"
  set gCursDroit to the number of member "CursDroit"
  set gCursCami to the number of member "CursCami"
  set gCursSortie to the number of member "CursSortie"
  set gCursPoing to the number of member "CursPoing"
  set gCursRond to the number of member "CursRond"
  set gCursMain to the number of member "CursMain"
  cursRond()
end

on stopMovie
  initbiblos()
end